home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / ipdldemo.exe / lha / CLRDIRS.XFU < prev    next >
Text File  |  1991-02-27  |  300b  |  3 lines
  1. %%HP: T(3)A(D)F(.);
  2. \<< IFERR OBJ\-> PATH 1 \-> vd cp f \<< 1 vd SIZE FOR i vd i GET IF 15 TVARS OVER POS THEN EVAL ELSE DROP 0 'f' STO 9E499 'i' STO END NEXT IF f THEN 15 TVARS IF DUP SIZE DUP THEN 1 SWAP FOR i DUP i GET PGDIR NEXT DROP ELSE DROP2 END CLVAR END cp EVAL \>> THEN CLOSEIO END \>> 
  3.